home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr11 / powerb5.zip / SAVER.BAS < prev    next >
BASIC Source File  |  1993-06-01  |  518b  |  20 lines
  1. 5    CLS : W = 40: WIDTH W
  2. 10   INPUT "Message to display: "; R$
  3. 15   S = LEN(R$)
  4. 20   RANDOMIZE TIMER
  5. 25   ROWNUM = INT(RND * 20) + 1
  6. 30   COLNUM = INT(RND * (W - S)) + 1
  7. 35   CLS
  8. 37   IF INKEY$ <> "" THEN SYSTEM
  9. 40   COLOR (ROWNUM MOD 8) + 8
  10. 50   LOCATE ROWNUM, COLNUM
  11. 60   PRINT R$
  12. 70   L = 1
  13. 80   ROWNUM = INT(RND * 20) + 1
  14. 90   COLNUM = INT(RND * (W - 8)) + 1
  15. 100  COLOR (ROWNUM MOD 8) + 8
  16. 110  LOCATE ROWNUM, COLNUM
  17. 120  IF L >= 1000 THEN GOTO 25
  18. 130  PRINT TIME$;
  19. 140  L = L + 1
  20. 150  GOTO 110